perm filename TFTOPL.CH[TEX,SYS]1 blob
sn#720036 filedate 1983-07-27 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00005 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 @x Tell WEAVE to print only the changes:
C00003 00003 @x Error messages deflected to the terminal:
C00004 00004 @x Specify compiler directives:
C00005 00005 @x Opening the tfm_file:
C00007 ENDMK
C⊗;
@x Tell WEAVE to print only the changes:
\centerline{\hsize 5in\baselineskip9pt
\vbox{\ninerm\noindent
The preparation of this report
was supported in part by the National Science
Foundation under grants IST-8201926 and MCS-8300984,
and by the System Development Foundation. `\TeX' is a
trademark of the American Mathematical Society.}}}
@y
\centerline{(This listing shows the changes for {\sc WAITS} only)}}
\let\maybe=\iffalse
@z
@x Error messages deflected to the terminal:
other remarks are written on the |output| file, which the user may
choose to assign to the terminal if the system permits it.
@↑system dependencies@>
The term |print| is used instead of |write| when this program writes on
the |output| file, so that all such output can be easily deflected.
@d print(#)==write(#)
@d print_ln(#)==write_ln(#)
@y
other remarks are written on the terminal.
@↑system dependencies@>
The term |print| is used instead of |write|, so that the other modules
are system-independent.
@d print(#)==write(tty,#)
@d print_ln(#)==write_ln(tty,#)
@z
@x Specify compiler directives:
@p program TFtoPL(@!tfm_file,@!pl_file,@!output);
@y
@p @t\4@>@{$D-,W+@} {no debugging overhead}
program TFtoPL(@!tfm_file,@!pl_file);
@z
@x Opening the tfm_file:
@ On some systems you may have to do something special to read a
packed file of bytes. For example, the following code didn't work
when it was first tried at Stanford, because packed files have to be
opened with a special switch setting on the \PASCAL\ that was used.
@↑system dependencies@>
@<Set init...@>=
reset(tfm_file);
@y
@ On some systems you may have to do something special to read a
packed file of bytes. For example, the following code doesn't work without
the \.{/B} switch at {\mc WAITS}, although it probably should?
@↑system dependencies@>
@<Set init...@>=
reset(tfm_file,'','/B:8');
@z